home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / c / GAPLib.lha / GAPLib / gaplib / EnterGAP.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-07-04  |  1.1 KB  |  20 lines

  1.  
  2. #include <stdio.h>
  3. #include <GAP.h>
  4. #include "VString"
  5. #define _STRM(x) #x
  6. #define c6E(x) _STRM(x)
  7. #ifdef __GNUC__
  8. #define m4G __VERSION__
  9. #endif
  10. #ifdef __SASC
  11. #define m4G "SAS/C v" c6E(__VERSION__) "." c6E(__REVISION__)
  12. #endif
  13. #ifndef m4G
  14. #define m4G "Unknown compiler"
  15. #endif
  16. int EnterGAP(int mode){switch(mode) {case 0: break;case 1: printf("\x25\x73\n",&__v__[6]);
  17. break;case 2: printf("\x25\x73\n\x43\x6f\x6d\x70\x69\x6c\x65\x64\x3a\x20\x25\x73\n\x57\x69\x74\x68\x3a\x20\x25\x73\n",&__v__[6],__DATE__,m4G);
  18. break;case 3: printf("\x57\x68\x65\x65\x2c\x20\x77\x6f\x77\x21\x20\x53\x6f\x6d\x65\x6f\x6e\x65\x20\x69\x73\x20\x61\x63\x74\x75\x61\x6c\x6c\x79\x20\x75\x73\x69\x6e\x67\x20\x47\x41\x50\x2d\x4c\x69\x62\x2e\n\x49\x27\x6d\x20\x6e\x6f\x74\x20\x64\x65\x61\x64\x2c\x20\x49\x20\x66\x65\x65\x6c\x20\x68\x61\x70\x70\x79\x21\n\x49\x20\x74\x68\x69\x6e\x6b\x20\x49\x27\x6c\x6c\x20\x67\x6f\x20\x66\x6f\x72\x20\x61\x20\x77\x61\x6c\x6b\x2e\n\n");
  19. break;default:printf("\x54\x6f\x6f\x20\x6d\x61\x6e\x79\x20\x66\x69\x6e\x67\x65\x72\x73\x20\x6f\x6e\x20\x6b\x65\x79\x62\x6f\x61\x72\x64\x20\x65\x72\x72\x6f\x72\x2e\n");}return(1); 
  20. }